\documentclass[12pt]{article}

\setlength{\unitlength}{1mm}

\usepackage[pdftex]{color}
\usepackage{amssymb}
\usepackage[paperwidth=170mm,paperheight=80mm]{geometry}

\setlength{\topmargin}{-36mm}
\setlength{\textwidth}{170mm}
\setlength{\textheight}{80mm}
\setlength{\oddsidemargin}{-23mm}
\setlength{\parindent}{0cm}

\pagestyle{empty}

\include{bird_Preamble}

\begin{document}
\begin{picture}(165,75)
        %\put(0,0){\makebox(0,0){$+$}}
        %\put(165,75){\makebox(0,0){$+$}}
%
\put(90.000,65.000){\makebox(0.000,0.000)[b]{{$\List{5\,6\,7\,8\,9}$}}}%
\put(40.000,35.000){\makebox(0.000,0.000)[b]{{$\List{\Nil\,\List{5}\,\List{5\,6}\,\List{5\,6\,7}\,\List{5\,6\,7\,8}\,\List{5\,6\,7\,8\,9}}$}}}%
\put(90.000,5.000){\makebox(0.000,0.000)[b]{{$\List{0\,0\+5\,(0\+5)\+6\,((0\+5)\+6)\+7\,(((0\+5)\+6)\+7)\+8\,((((0\+5)\+6)\+7)\+8)\+9}$}}}%
%
\thicklines
%
\textcolor{cFct}{\put(85.000,62.000){\vector(-2,-1){40.000}}}%
\textcolor{cFct}{\put(64.000,52.000){\makebox(0.000,0.000)[br]{$\inits$}}}%
%
\textcolor{cFct}{\put(95.000,62.000){\vector(0,-1){50.000}}}%
\textcolor{cFct}{\put(97.000,35.000){\makebox(0.000,0.000)[bl]{$\scanl \; (+) \; 0$}}}%
%
\textcolor{cFct}{\put(45.000,32.000){\vector(2,-1){40.000}}}%
\textcolor{cFct}{\put(64.000,22.000){\makebox(0.000,0.000)[tr]{$\map \;(\foldl \; (+) \; 0)$}}}%
\end{picture}
\end{document}